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BASIC 


LAS VARIABLES 


NA variable es un es- 
pacio de la memoria 
en el que podemos 
almacenar un dato, 
numérico o alfanu- 
mérico. Este dato se 
denomina valor de la 
variable. 

Puesto que existen dos tipos de datos, 
también existen dos tipos de variables: 


Numéricas: sirven para almacenar 
números. 

* Alfanuméricas: sirven para almace- 
nar cadenas de caracteres. 

Para distinguir unas variables de otras 
tenemos que dar un nombre a cada una 
de ellas. 

En general, el nombre de una variable 
tiene que cumplir los requisitos siguien- 
tes: 


— La longitud máxima del nombre va- 
ría de unos ordenadores a otros, aunque 
generalmente suele ser bastante grande. 

— El primer carácter que forma el 
nombre de la variable debe ser siempre 
una letra. El resto pueden ser numeros 
y/o letras, pero nunca signos como ?, -, +. 

— No se pueden utilizar palabras BA- 
SIC como nombres de variables. Algunas 
máquinas tampoco aceptan nombres de 
variables que contengan palabras BA- 
SIC, como, por ejemplo, ALETA, SENDA. 

— Algunos ordenadores sólo distin- 
guen los dos primeros caracteres del 
nombre; por tanto, si dos nombres de va- 
riable distintos comienzan por los dos 
mismos caracteres, el ordenador inter- 
pretará que se trata de la misma varia- 
ble. Por ejemplo: SUMA, SUELDO, SU28 se- 
rían la misma variable. 

— El último carácter del nombre pue- 
de ser especial ($, !, %, +) y sirve para 
distinguir distintos tipos de variables, si 
los hay. En principio, nos basta con saber 
que el signo $ al final del nombre de una 
variable la identifica como variable alfa- 
numérica, mientras que si no lleva ningún 


signo especial como último carácter será 
una variable numérica. 

— Las letras empleadas en un nombre 
de variable pueden ser mayúsculas o mi- 
núsculas, ya que el ordenador no hace 
ninguna distinción. Por ejemplo, AB, ab, 
Ab y aB son la misma variable. 

En la tabla de la figura 1 podemos ver 
algunas excepciones a estas normas que 
presentan los principales ordenadores. 


Admite como nombre de variable un nom- 
bre que contenga una palabra BASIC 
COMMODORE | No admite los signos especiales ! y + 


Admite como nombre de variable un nom- 
bre que contenga una palabra BASIC. Re- 
conoce todos los caracteres que compo- 
nen el nombre de la variable 


Ninguna excepción 


No admite los signos especiales !, % y + 
Reconoce todos los caracteres que com- 
ponen el nombre de la variable. 

Admite como nombre de variable un nom- 
bre que contenga una palabra BASIC, o la 
propia palabra BASIC 

Sólo admite una letra y el signo $ como 
nombre de variable altanumérica 


lA Excepciones a las normas generales sobre 
variables en los principales ordenadores. 


En la tabla de la figura 2 podemos ver 
el significado de los símbolos %,!0% al 
final de una variable numérica. 


Ultimo 


Variables 


Numéricas 


cimal 
' 


Aproximadamente el 
doble de cifras signifi- 
cativas que las de sim- 
ple precisión 


[A Especificaciones de los diferentes tipos de 
variables numéricas. 

Finalmente podemos ver algunos ejem- 
plos: R, RADIO, TOTALVENTAS, NOMBRES, 


NUM%, C25$, SUM12 son variables. 
24B, TO+, SCALLE, A+B, CODIGO-POSTAL 
no son variables. 


u ASIGNACION: LET 


El proceso mediante el cual damos un 
valor a una variable recibe el nombre de 
asignación. 


El proceso de asignación cubre los si- 
guientes puntos: 

* Reservar un espacio en memoria. 

* Dar un nombre a dicho espacio (va- 
riable). 

* Asignar un valor a la variable. 

La asignación se puede realizar de dis- 
tintas maneras utilizando diferentes pala- 
bras BASIC. 

Vamos a comenzar por estudiar la sen- 
tencia LET. 

El formato general de LET es el siguien- 
te: 


LET <nombre de variable> = <valor> 


Hay que advertir que el signo = no im- 
plica igualdad matemática. Representa 
que el valor de la derecha es asignado 
a la variable de la izquierda, de modo 
que queda almacenado en un espacio 
de la memoria. 

Lógicamente el valor que asignamos a 
la variable dependerá del tipo de varia- 
ble utilizada. Si la variable es altanuméri- 
ca le podremos asignar una cadena u 
otra variable alftanumérica previamente 
asignada. No podemos asignar valores 
numéricos. Si, por el contrario, la variable 
es de tipo numérico, podremos asignarle 
constantes numéricas, expresiones arit- 
méticas o cualquier otra variable numé- 
rica que ya tenga un valor previamente 
asignado. 

Veamos algunos ejemplos: 


TOLETA=5 


Esta línea significa que al ejecutar el 
programa se reserva un espacio en la 
memoria, cuyo nombre es la variable A y 
cuyo contenido es un 5. 


20LETA=A+1 


Esta línea indica que se suma un 1 al 
contenido de la variable A y el resultado 
se guarda de nuevo en A, con lo cual se 
pierde su antiguo valor, ya que en una 
variable no se puede almacenar más de 
un dato simultáneamente. 


Si queremos imprimir en pantalla el úl- 
timo valor que toma la variable A, tendre- 
mos que añadir la linea: 


30 PRINT A 


Tenemos aquí un nuevo formato para 
PRINT: 


PRINT <nombre de variable > 


Los nombres de variables nunca van 
entre comillas (eso sería una cadena) y 
lo que hace la instrucción PRINT es impri- 
mir en pantalla el contenido de la varia- 
ble, es decir, el valor asignado a la va- 
riable. Por tanto, con el programa que 
hemos desarrollado aparecerá en pan- 
talla un 6. 

Por otra parte, también podemos asig- 
nar a una variable el contenido de otra, 
tal y como podemos ver en el programa 1. 


CL 


20 LET A=5 

30 LET B=A 

40 PRINT "a=";4,"B=";B 
50 PRINT "A+B=";4+B 


En la línea 30 asignamos a B el conte- 
nido de A, es decir, un cinco, aunque A 
sigue conservando su valor. Después, 
combinando adecuadamente cadenas 
y variables, separándolas con coma, o 
punto y coma según convenga, obtene- 
mos una impresión en pantalla similar a 
la de la figura 3. 


[A Presentación en pantalla del programa 1. 


le BASIC 


En la línea 50 podemos observar que, 
una vez que las váriables tienen un valor 
asignado, podemos realizar operaciones 
con ellas apareciendo en pantalla el re- 
sultado. Análogamente podemos utilizar 
las variables altanuméricas, como el pro- 
grama 2. 


CLS 

LET NO$=" JAVIER" 
30 LET AP$="RUIZ" 
40 LET EDAD=23 

50 PRINT NO$+" "+APS 
PRINT "EDAD:" ¿EDAD 


Normalmente los ordenadores asignan 
el valor cero a una variable numérica si 
previamente no se le ha asignado ningún 
valor. De igual modo proceden con las 
variables altanuméricas a las que les 
asignan la cadena vacía (*“*). Si teclea- 
mos: 


PRINT HOLA 


En pantalla aparecerá un cero. Sin em- 
bargo, esto no sucede en el SPECTRUM, 
que imprimiría un mensaje de error: VA- 
RIABLE NOT FOUND, ya que necesita ini- 
cializar todas las variables que se vayan 
a utilizar. 

Por otra parte, en todos los ordenado- 
res, excepto en el SPECTRUM, se puede 
suprimir la palabra LET. Por ejemplo, la 
instrucción: 


10 LADO = 8 


es perfectamente válida, ya que tiene el 
mismo significado que: 


10 LET LADO = 8 


Finalmente, vamos a desarrollar un pro- 
grama que permita calcular el drea y el 
perímetro de una circunferencia de ra- 
dio 6. 


CLs 
20 LET RADIO=4 

30 LET AREA=PI*RADIC*2 

490 LET PERIM=2*PIX*RADIO 

50 PRINT “RADIO="¡RADIO 

$0 PRINT "AREA="¡AREA 

PRINT "PERIMETRO="¡PERIM 


En la línea 30 asignamos a la variable 
AREA el resultado de la operación: 


3.1416'6 2 


por tanto, Pl tiene ya un valor asignado 
en el sistema (3.14159...). Esto no sucede 
en todos los ordenadores; por tanto, si 
nuestro ordenador no tiene asignado el 
valor de Pl, tendremos que añadir al pro- 
grama la línea: 


25 LET Pl = 3.1416 


En la línea 40 procedemos análoga- 
mente asignando a la variable PERIM la 
expresión aritmética que permite calcu- 
lar la longitud de la circunferencia. 

Por último, las líneas 50, 60 y 70 se en- 
cargan de imprimir los resultados en pan- 
talla, tal y como muestra la figura 4. 


AA 
: . EROS Y 


RADIO = 6 
AREA = 113.0976 


PERIMETRO = 37.6992 


Presentación en pantalla del programa 3. 


COMMODORE 64 


EMOS visto hasta aho- 
ra cómo funciona el 
microprocesador del 
COMMODORE 64, es 
decir, la parte activa 
del ordenador que, 
en última instancia, 
es la que decide su 
comportamiento. 

Si no lo ha entendido todo, no se pre- 
ocupe, basta con que se haya quedado 
con esta idea básica: se trata de una es- 
tructura compleja de unidades de me- 
moria en la cual se controla la forma en 
la que se transfieren los datos, así como 
la realización de acciones tales como su- 
mas, restas, operaciones lógicas, etc. 

Para ello dispone de unos registros pro- 
pios, que utiliza para llevar a cabo y con- 
tabilizar dichas operaciones. 

Ahora vamos a dar un paso atrás y a 
presentar, de una manera simple, lo que 
llamamos “lenguaje máquina” o “código 
máquina”. 

Se intentará responder y dar las nocio- 
nes generales acerca de una serie de 
cuestiones que podríamos resumir así: 


— ¿Qué es el lenguaje máquina y por 
qué se utiliza tanto? 

— Sistemas de numeración. 

— Comandos o nemotécnicos utiliza- 
dos en la programación en lenguaje má- 
quina. 

— Rutinas de interés en lenguaje má- 
quina. 


El objetivo final es que el lector se fami- 
liarice con las palabras, comandos y ru- 
tinas más utilizados en este lenguaje, de 
tal forma que más adelante, cuan- 
do se encuentre ante un libro o revista 
más avanzados sobre el tema, no lo 
cierre al ver que no entiende nada, y 
piense que el lenguaje máquina no está 
a su alcance. 


MAQUINA 6502 


Siga leyendo y verá cómo con un 
poco de paciencia y buena voluntad 
podrá entender y hacer algunas “cosi- 
llas“ interesantes en lenguaje máquina. 


O ¿Qué es el lenguaje máquina 
y para que sirve? 


Cuando encendemos nuestro COMMO- 
DORE 64 vemos que aparece un mensa- 
je en pantalla que nos indica que está lis- 
to para recibir instrucciones. Su COMMO- 
DORE 64 ya tiene el lenguaje BASIC, y 
cuando se le introduce un comando, él 
dispone de un interpretador del BASIC 
que está incorporado al sistema operati- 
vo, y que se encarga de transformarlo en 
pasos capaces de ser ejecutados. 

Esta labor conlleva una serie de pasos 
que podrían resumirse así: 


— Compararlo con el resto de los co- 
mandos BASIC hasta que lo encuentra en 
su tabla. 

— Guardar su posición en dicha tabla. 

— Irala rutina correspondiente a ese 
comando. 

— Ejecutar el comando. 


Si pudiéramos ahorrarnos la labor del 
intérprete y ejecutar directamente el co- 
mando en cuestión, ganaríamos un tiem- 
po precioso, que será mayor cuanto más 
complejos sean los comandos a ejecu- 
tar. 

Para esta programación directa es 
para lo que se utiliza el lenguaje máqui- 
na, el cual permite una rapidez que pue- 
de ser entre 10 y 1.000 veces superior a 
su equivalente programa escrito en BA- 
SIC. 

Pero hay algo más que la velocidad, 
que hace al lenguaje máquina casi im- 
prescindible. 


. MÁQUINA 6502 


Existen ciertos casos que no se pueden 
hacer en BASIC, como son aquellas ruti- 
nas que utilizan la técnica de INTERRUPTS. 

Sin entrar en detalles que no serían de 
utilidad en esta sección, diremos que un 
interrupt o interrupción es una función in- 
terna del ordenador que ocurre cada se- 
sentaavo de segundo y que se ejecuta 
“siempre” independientemente de lo 
que estuviera haciendo en ese momento. 


Es decir, cada sesentaavo de segundo 
su COMMODORE 64 abandona lo que 
está haciendo, ejecuta la rutina de in- 
terrupt y continúa donde se quedó antes 
de la interrupción. Todo esto pasa inad- 
vertido para el usuario, debido a la gran 
velocidad con que se ejecuta. 

Pues bien, las técnicas de interrupcio- 
nes se aprovechan de esta característi- 
ca de su ordenador para introducir sus 
propias rutinas, de tal forma que las in- 
corporan a la rutina de interrupt. Así 
cada sesentaavo de segundo su ordena- 
dor podrá ejecutar la rutina que haya 
sido, digamos, “añadida”. ¿Interesante, 
verdad? 

Esta es la técnica por la cual a veces 
en ciertos programas parece que el or- 
denador hace dos cosas a la vez, como 
tocar música mientras se está ejecutan- 
do el programa. La parte musical ha sido 
incorporada a las interrupciones y se eje- 
cuta independientemente del resto del 
programa. 

¿Qué hace el ordenador durante una 
de sus interrupciones? 

Hace bastantes cosas, entre las cuales 
se encuentran la renovación del reloj in- 
terno y comprobación del teclado y peri- 
féricos. 

La forma de interceptar las interrupcio- 
nes la veremos más adelante, pero aquí 
queda una idea de sus posibilidades. 

Otro aspecto del lenguaje máquina es 
el aprovechamiento del espacio en la 
memoria, tanto en la creación de un pro- 
grama como en el almacenamiento de 
datos. Si el programa está bien estructu- 
rado, será bastante más corto y compac- 
to que el correspondiente en BASIC. 

Por todo ello, casi siempre merece la 
pena esforzarse y aprender a programar 
en lenguaje máquina, porque los resulta- 
dos compensan el esfuerzo. 

Muchas veces lo que se hace es un 
programa en BASIC, el cual lleva alguna 
rutina en lenguaje máquina a la que se 


llama mediante el comando SYS. Asi se 
combinan la claridad externa del BASIC 
con la rapidez del lenguaje máquina 
dentro del mismo programa. 

Una vez vista y entendida la razón de 
ser del lenguaje máquina, pasemos a co- 
nocer las herramientas que va a necesi- 
tar a la hora de hacer sus programas. 


O Sistemas de numeración 


Estamos acostumbrados a manejar el 
sistema decimal para hacer cualquier 
tipo de operación con números. Como 
sabemos, este sistema se compone de 
10 dígitos diferentes; 0, 1, 2, 3, 4, 5, 6, 7, 
8, 9. 

Pero, desgraciadamente, el ordenador 
trabaja sólo con “unos" y “ceros”, es de- 
cir, utiliza el sistema binario. Por ello, es 
necesario saber operar con este sistema, 
y transformar un número decimal en bi- 
nario, y viceversa. 

Asimismo, conviene también familiari- 
zarse con el sistema hexadecimal que 
utiliza 16 dígitos diferentes: 0, 1, 2, 3, 4, 5, 

Veamos todo esto con un ejemplo grá- 
fico: 

Si tomamos el número decimal 124 y lo 
descomponemos nos queda: 


124 =4 x 100 + 2 x 101 + 1 x 10? = 
=4+20 + 100 


¿A qué número binario corresponde- 
ría? Muy fácil, hagamos divisiones conse- 
cutivas por dos, hasta que el cociente 
sea menor que dos. 


124: 2 =62 Resto O 
62:2=31 Resto O 
31:2=15Resto 1 
15:2=7 Resto 1 
7:2=3 Resto 1 
3:2=1Resto 1 


Ahora tomamos el último cociente y to- 
dos los restos en orden inverso al que han 
sido obtenidos y nos queda: 1111100 

Para comprobar que éste es el número 
124 en decimal, vamos a descomponer- 
lo en potencias de dos: 


1111100=0x22+0x2'+1x22+ 1 x 2? 
+1x214+1x283++1x22=0+0+4+8 
+ 16+32+64 = 124 


Intentemos ahora la transformación del 
número 124 decimal al sistema hexade- 
cimal. 


Para ello hacemos divisiones sucesivas 
por 16 hasta obtener un cociente menor 
que 16. 


124 : 16 = 7 Resto 12 


Ahora tomamos el último cociente y to- 
dos los restos obtenidos en orden inverso. 
Si tenemos en cuenta que el número 12 
es inmediato en hexadecimal C, queda: 


124 = y ¡es = 1ITITOO 
Decimal  Hexadecimal Binario 


A partir de ahora cualquier número bi- 
nario lo compondremos de ocho dígitos 
e irá precedido del símbolo %. 

Esto es debido a que cada una de las 
unidades de memoria o registros de 
nuestro ordenador se compone de ocho 
“conexiones” que veremos más tarde, y 
en cada una de ellas sólo se distinguen 
dos estados: encendido (1) y apagado 
(0). Por ello, representaremos siempre 
ocho dígitos binarios, que pueden ser 1 
Ó0. 

Así, pues, el número anterior 124 en de- 
cimal quedaría como: %01111100 en bi- 
nario. 

Aquí nos surge una pregunta; ¿cuál es 
el mayor número que se puede represen- 
tar con ocho dígitos binarios? Sencillo, 
aquél con todos los dígitos 1. 

Veámoslo: 


%11111111=1x22+1x2'+ 1x2? + 1 
22+1x2++1x28+1x2%+ 1x2 =1 
2+4+8+16++32 + 64 + 128 = 255 


Esto nos lleva a la conclusión de que 
en un registro existen 255 posibilidades o 
combinaciones diferentes, que van 


Me as anio decimal 
desde la %00000000 binario 

OOO! ad hexadecimal 

LO ie decimal 
hasta la %11111111 binario 

A hexadecimal 


Esto es fácilmente comprobable sin 
más que preguntándole al ordenador 
qué número almacena en una determi- 
nada posición de memoria X, mediante 
la función PRINT PEEK(X). Siempre se ob- 
tendrá como resultado un número entre 
O y 255. 

A continuación, y para terminar con los 
sistemas de numeración, puede ser útil 
disponer de una tabla de conversión de- 


cimal-hexadecimal para valores com- 
prendidos entre O y 255. 


Dec. Hex. Dec. Hex. Dec. Hex. Dec. Hex. Dec. Hex. 


0 
1 
2 
3 
4 
1) 
6 
7 
8 
9 


y Programa: 
[a Dump de 


memoria 


STE pequeño progra- 
ma que aparece a 
continuación nos ser- 
virá para testear la 
memoria y para bus- 
car dentro de ésta 
cualquier cosa que 
necesitemos. DUMP 
significa algo así como VOLCAR. Según 
esto, lo que hace este programa es vol- 
car el contenido de la memoria en la 
pantalla. 


La rutina nos preguntará la dirección 
de inicio, la dirección final y, posición a 
posición de memoria, nos irá mostrando 
en la pantalla los siguientes datos: 


— Dirección de memoria que estamos 
mirando. 


— Contenido de dicha posición en 
decimal. 


REM ASSSISS SISI lO SISSI lOlOISlOlOJOIOJOK 
* DUMP DE MEMORIA k 
ISSO SISSI lOjOlOlololOlojoK 
*XPOR J. GARCIA LUENGO x* 
IMM SSI lOflolldlalolaldlolojo kk 
*x(c)Ed. Siglo Culturalx* 
*x(c)1987 k 
IMSS SISSI lol lSlOlOlOlOlOIOJojOK 


1 
Z 
3 
4 
5 
6 
7 
8 


10 POKE 23658,8 


11 FOR A=USR "A"+7 TO USR "U"+7 STEP 8 


12 POKE A, 255 

13 NEXT A 

20 INPUT "DIRECCION INICIO ?";DI 
30 FOR A=DI TO 65535 STEP 21 


PROGRAMAS 
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PROGRAMAS DE UTILIDAD 
PROGRAMAS DE GESTION 
PROGRAMAS DE JUEGOS 


— Contenido de dicha posición en 
hexadecimal. 

— El carácter que tiene el código AS- 
Cll del valor almacenado en dicha posi- 
ción. 

Sobre los tres primeros datos no hace 
falta explicar nada, ya que son autoex- 
plicativos. Pero sobre el cuarto hay que 
decir que, a veces, no necesitamos sa- 
ber el valor numérico de una posición de 
memoria, sino el carácter que tiene 
como código ASCII dicho valor numérico. 
Este programa está preparado para sa- 
carnos por pantalla el carácter que tie- 
ne el código ASCII de cada posición de 
memoria. En el caso de que dicho códi- 
go ASCIl sea menor de 32, como no se 
puede imprimir sin estropear el formato 
de la pantalla, se imprimirá un asterisco 
(). En el caso del SPECTRUM tampoco se 
imprimen los caracteres con código AS- 
Cll mayor de 164, ya que a partir de este 
carácter lo único que aparecería por 
pantalla seríon los TOLKENS del SPECTRUM. 

El programa 1 está preparado sólo 
para los usuarios del SPECTRUM, pero el 2 
sirve para todos los demás ordenadores. 


40 


50 PRINT "DIR. DECIM. —HEXAD. ASCII";AT 0,0; OVER 1;” 


CLS 


"; OVER O 


60 FOR B=0 TO 20 

70 LET PD=PEEK (A+B) 

80 LET P1=PD/16 

90 LET P=INT Pi 

100 LET LO=LEN STR$ (A+B) 


110 PRINT STR$ (A+B)+("........ " AND LO=1)+("....... “AND LO=2)J+( osos " AND L 
O " AND LO=4)+("....”" AND LO=5); 
115 PRINT STR3 (PD)+"........ "( TO 8-(PD>9)-(PD>99)); 


120 PRINT (STR$ P AND P<10)+("A” AND P=10)+("B" AND P=11)+("C" AND P=12)+("D" A 
ND P=13)+("E" AND P=14)+("F" AND P=15); 

130 LET P2=PD-Px16 

140 LET P=P2 

150 PRINT (STR$ P AND P<10)+("A” AND P=10)+("B"” AND P=11)+("C" AND P=12)+("D" A 
ND P=13)+("E" AND P=14)+("F" AND P=15); 

100: PRIND aci spa ";(CHR$ PD AND (PD>31 AND PD<164))+("x*" AND (PD<32 OR PD>1 


64)) 
170 
180 
190 
200 
210 
220 
230 


230 
240 
250 
260 


NEXT B 
PRINT $1; FLASH 1;"P=PARAR C=COPY" 
PAUSE O 


LET 


K$=INKEY$ 


IF K$="P" THEN CLEAR : GO TO 20 
IF K$="C" THEN COPY 
NEXT A 


REM 
REM 
REM 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
DEF 
LET 
CLS 


EEES 


k DUMP DE MEMORIA k 
AMS SISMOS 


EEES 


* POR Fco. Morales Guerrero * 
SS 


IMSS lalalala llo lolo lolo 
*x (c) Ed. Siglo Cultural k 
* (c) 1987 *k 
Jolla 


FNP$=MID$(A$, 1+INT(PP/16), 1)+MIDS(AS$, 1+PP-INT(PP/16)*16,1) 
A$="0123456789ABCDEF” 


LOCATE 10,1 

INPUT "Desde la direccion ... ";D1 

LOCATE 12,1 

INPUT “Hasta ... “¡De 

1F D2<D1 OR D1<1 OR D2>65535! THEN GOTO 150 


FOR 


I=D1 TO D2 STEP 20 


PRINT “ DIR. DECIMAL HEXADECIMAL ASCII" 
PRINT "=== += p 


FOR J=1 TO 1+19 
LET PP=PEEK(J) 
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NEXT 
320 PRINT 


J 


1050 FOR J=1 TO 1+19 

1100 LPRINT USING "$8888 ... 
$ 

1110 NEXT  J 

1120 RETURN 


Las variaciones que hay que realizar 
para que el programa funcione en orde- 
nadores distintos del IBM son las siguien- 
tes: 


COMMODORE: 


150 PRINT CHR$(147) 

160 POKE 214,10:POKE 211,0 

180 POKE 214,12:POKE 211,0 

220 PRINT CHR$(147) 

330 PRINT J; TAB(10); PP; TAB(22); PS; 
TAB(35); CS 

350 GET BS 

500 PRINT CHR$(147) 

1025 OPEN 1,4 

1027 CMD 1 

1030 PRINT “DIR. DECIMAL HEXADECIMAL 
ASCII” 

1040 PRINT “aaamooo A 

1060 PRINT J; TAB(10); PP; TAB (22); PS; TAB 
(35),CS$ 

1115 CLOSE 1 


AMSTRAD: 


160 LOCATE 10,1 
180 LOCATE 12,1 


MSX: 


160 LOCATE 10,1 
180 LOCATE 12,1 


270 LET P$=FNP$ 

280 IF PP<32 THEN LET C$="x*":GOTO 300 

290 LET C$=CHR$(PP) 

300 PRINT USING “488%... BEBUIPP]3PRENT E 


330 PRINT "(C) COPIAR (P) PARAR”; 
350 LET B$=INKEY$ 

360 IF B$="" THEN GOTO 350 

370 IF B$="C" OR B$="c" THEN GOSUB 1000 

380 IF B$="P" OR B$="p" THEN GOTO 500 

390 NEXT I 

500 CLS 

510 END 

1000 REM 

1010 REM x*x** SALIDA POR IMPRESORA *xxk 

1020 REM . 
1030 LPRINT * DIR. DECIMAL HEXADECIMAL ASCII” 


1040 LPRINT "=======================-- 


[A Ejemplo de ejecución del programa 
«DUMP de memoria» en el SPECTRUM. 


DIR. DECIMAL HEXADECIMAL ASCII 
221 00 
222 00 
223 00 
224 on 
225 00 
226 00 
227 00 
228 c3 
229 TE 
236 10 
231 00 
232 2 S5Z 
233 2 
234 1 4E L 
235 80 : 
236 552: 
237 07 > 
238 1 4E . 
239 : 80 
240 : E4 


(C) CUFIAR <F) FARAR 


[A Ejemplo de ejecución del programa 


“DUMP de memoria” en el IBM. 


| a 
' Programa: Trivial quimica 


El programa que proponemos a conti- 
nuación, aunque es válido sólo para los 
usuarios de IBM y compatibles, volverá a 
aparecer en tomos posteriores, de forma 
que valga para los demás ordenadores. 


PULSA PENTER« PARA COMENZAR 


A | 
lA Pantalla de presentación del programa 
«Trivial quimica». 


El programa es eminentemente educa- 
tivo. Nos permitirá repasar y aprender la 
formulación de los óxidos y de los anhí- 
dridos. Para hacer el programa más 
agradable y menos árido se ha organiza- 


TRIVIAL CHENIST 


N,EREGUNTAS P. ACERTADAS 


¿ OXIDO DE MAGNESIO ? 


[A Pantalla en un nivel bajo de dificultad. 


do el programa de forma que, para una 
pregunta, aparecen en la pantalla una 
serie de respuestas entre las cuales está 
la verdadera. El número de respuestas 
que aparecen en pantalla por cada pre- 
gunta varía con el grado de dificultad 
del programa. 

El usuario del programa puede elegir 
entre cinco niveles distintos de dificultad. 
Cada nivel se diferencia del anterior en 
que en la pantalla aparecen un número 
más alto de posibles respuestas. 


TRIVIAL CHEMIST 
N. PREGUNTAS 


P ACERTADAS 


¿ ANHIDRIDO HIFOSELENIOSO ? 


lA Pantalla en un nivel alto de dificultad. 


Dentro de cada nivel de dificultad se 
puede elegir el número de preguntas en- 
tre 1 y 82. El usuario puede elegir el nú- 
mero de preguntas que desea antes de 
comenzar el examen. 


Al final del programa, cuando ha sido 
agotado el número de respuestas pres- 
crito por el usuario, el programa da un re- 
sumen del examen. En dicho resumen se 
especifican los siguientes datos: 


— Número de preguntas que se han 
hecho. 


— Número de respuestas acertadas. 


— Tanto por ciento (%) de respuestas 
correctas. 


— Valoración de la prueba de 1 a 10. 

Durante la ejecución del programa 
aparece continuamente en pantalla el 
número de respuestas que se le han he- 
cho al usuario y cuántas de éstas han 
sido contestadas correctamente. 
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En próximos tomos aparecerán nuevos E 
sa] INIVWINL CNENWIST 


programas de formulación química. En 
ellos se verá la formulación de hidróxi- 
dos, ácidos (tanto hidrácidos como oxá- 
cidos), sales, sales ácidas, etc. poi RESULTADO DEL CONTROL 


NUMERO DE PREGUNTAS. ........ 10 
PREGUNTAS ACERTADAS 000... 7 
PORCENTAJE QUIMICO. ......... 70% 
NOTA DEL CONTROL... 00.000... 7 


> ¿ NS HACER OTRO EXAMEN (S/N) ? 


3 El programa nos dice qué tal hemos 
hecho la prueba. 


REM ASS Sal ISlOlSjlalalllaalaalalalalaalaIalollalololololalololojoK 
REM aaMSSSSaMlOjoalalolootaok TRIVIAL CHEMIST POR CARLOS DORAL AdMdRRSOIOIOIOROSIOIOIOIOIRIOJOOK 
REM salda filo jaa lalalala alocada dololokK 
REM 
REM 
REM SOS SSIS IO SS lSIO SISSI ISI lalIa jolla 
REM ARSOSOIOSIOIO OO (C) EDICIONES SIGLO CULTURAL (1987) IAOOIGIOIOIOIOIOIGIOIOIOR 
REM AMAS OSOS JO O OOOO OOO ORO IO ROJO IO OOO JOR IO OOOO OOOO OOOO: 
REM 
SCREEN O 
COLOR 6 
CLS 
DIM A(82) 
DIM P3(82) 
DIM R$(82) 
FOR F=1 TO 82 
READ P$(F) 
NEXT F 
38 FOR F=1 TO 82 
READ R3$(F) 
NEXT F 
LOCATE 4,1 
32 PRINT “ O 


PRINT “ 


PRINT * 


39 FOR C=1 TO 50 


80 


SOUND 100+INT(RND*800), 1 
NEXT C 
LOCATE 20,26 
PRINT "PULSA / ENTER . PARA COMENZAR” 
IF INKEY$<>CHR$(13) THEN GOTO 44 
LOCATE 20,20 
LET ER=0 
RANDOMIZE TIMER 
INPUT ” ( NIVEL DE DIFICULTAD(1-5) ";A$ 
GOSUB 171 
IF ER=1 THEN 45 
LET ND=VAL(A$) 
IF ND>5 OR ND<1 THEN GOTO 45 
LET P=0 
LET B=0 
LET Y=10+(ND*2) 
LOCATE 20,21 
INPUT "( CUANTAS PREGUNTAS QUIERES (1-52)  ";AS 
LET ER=0 
GOSUB 171 
IF ER=1 THEN GOTO 56 
LET N=VAL.(A$) 
IF N<1 OR N>82 THEN GOTO 56 
LOCATE 20,20 
COLOR 20 
PRINT " — ATENCION EMPIEZAN LAS PREGUNTAS ! 
COLOR 6 
FOR F=1 TO 5 

FOR X=1 TO 500 

NEXT X 

BEEP 
NEXT F 
DIM H(ND+3) 
DIM Q$(ND+3)> 
FOR W=1 TO N 
CcLS 
LET X1=20 
LET X2=56 
LET Y1=3 
LET Y2=8+(ND*2) 
GOSUB 363 
LET X1=5 
LET X2=10 
LET Y1=5 
LET Y2=7 
GOSUB 363 
LET X1=64 
LET X2=69 
LET Y1=5 
LET Y2=7 
GOSUB 363 
LOCATE 4,3 
PRINT "N. PREGUNTAS” 


LOCATE 4,62 


PRINT "P, ACERTADAS” 

LOCATE 2,24 

PRINT "TRIVIAL CHEMIS T" 
LOCATE 6,6 

PRINT P 

LOCATE 6,65 
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100 
101 

102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
LAR 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
1465 
147 
148 

149 
150 
154 

152 
153 
154 
155 
156 
157 
155 

159 


180 


PRINT B 
LET C=1 
LET RN=1+INT(RNDx*82) 
FOR F=1 TO 82 
IF A(F)=RN THEN 102 
NEXT F 
LET A(C)=RN 
FOR F=1 TO ND+3 
LET H(F)=30+INT(RND*38) 
NEXT F 
FOR F=1 TO ND+3 
FOR C=F+1 TO ND+3 
IF H(F)=H(C) OR H(F)=RN THEN GOTO 107 
NEXT C 
NEXT F 
FOR F=1 TO ND+3 
LET S=H(F) 
LET Q6(F)=R3(5) 
NEXT F 
LET R=1+INT(RND*(ND+2)) 
LET Q8(R)=R$(RN) 
LET (0=1 
FOR F=5 TO 8+(NDx2) STEP 2 - 
LOCATE F.22 ¿ 
PRINT C;"- 
LET C=C+1 
NEXT F 
LOCATE Y, 20 
PRINT * fa . 
IF RN<38 THEN M$="OXIDO “+P$(RN):ELSE M3="ANHIDRIDO "+P$(RN) 
LOCATE Y, 20 
PRINT' "( "¡¿MS;" 7?" 
LOCATE Y,24+LEN (M$) 
LET B$=INKEYS 
IF B$<"1" OR B$>"7! THEN GOTO 133 
IF B$<>CHR$ (R+48) THEN GOSUB 391 
IF B$=CHR$(R+48) THEN GOSUB 409 
LET P=P+1 
LOCATE Y, 20 
PRINT * 
IF INKEYS$="" 
NEXT W 
CLS 
LET X1=22 
LET X2=58 
LET Yi=5 
LET Y2=16 
GOSUB 363 
LOCATE 3,26 
PRINT “TRIVIAL JOCHEMLSD 
LOCATE 6.30 : 
PRINT "RESULTADO DEL CONTROL" 
LOCATE 8,24 E 
PRINT * 
LOCATE 
PRINT 
LOCATE 
PRINT 


"5Qs(C) 


PULSA UNA TECLA 
THEN GOTO 140 


10,24 
"PREGUNTAS 

12:24 
“PORCENTAJE QUIMICO 
LOCATE 14,24 j 
PRINT "NOTA DEL CONTROL. .... 
LOCATE 14,52 


161 
162 
163 
164 
165 
166 
167 
163 
169 
170 
171 
172 
1:73 
174 
175 
176 
LE 
178 
179 
180 
181 
182 
183 
1584 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
Z11 
212 
213 
¿14 
215 
216 
217 
218 
¿19 
220 
221 


COLOR 20 

PRINT INT((B+10)/N) 

COLOR 5 

LOCATE 20,20 

PRINT "(— QUIERES HACER OTRO EXAMEN (3/N) 7” 
IF INKEYS$="3" OR INKEYS="s" THEN RUN 

IF INKEY$="N" OR INKEYG="rn" "THEN END 


GOTO 166 

END 

REM 

REM HOR IO OOO IO ROO OOO RIO IO OOO ROO IO OOOO IO IIA A AA 


REM ondaa otolololoto tac CONTROL DE EKBORES DEL INPUT. dotada tao Ito RA RR 
REM AA OR ORO OOOO III IO ROO IO O O OOOO RIOR 
REM 

IF' LEN(AS)<1 OR LEN(A$)>2 THEN ER=1: RETURN 

IF ASC(A$):49 OR ASC(AG)>56 THEN ER=1 

RETURN 

REM 

REM ARO OOOO III IO IO IO OOOO OOOO OOOO IO IO IA 
REM dada nido Mldlolclotota DATAS DE LAS PREGUNTAS DE LOS OXIDOS AddRdIddaIdIdOlaIojRIololooK 
REM ROA OIR 
REM 

DATA DE LITIO 

DATA SODICO 

DATA POTASICO 

DATA RUBIDICO 

DATA DE CESIO 

DATA DE PLATA 

DATA CUPROSO 

DATA CUPRICO 

DATA MERCURIOSO 

DATA MERCURICO 

DATA AUROSO 

DATA AURICO 

DATA DE MAGNESIO 

DATA DE BERILIO 

DATA CALCICO 

DATA ESTRONCICO 

DATA BARICO 

DATA DE RADIO 

DATA ZINCICO 

DATA CADMICO 

DATA FEKROSO 

DATA FERRICO 

DATA COPALTOSO 

DATA COBALTICO 

DATA NIQUELOSO 

DATA NIQUEL ICO 

DATA CKOMOSO 

DATA CROMICO 

DATA MANGANOSO 

DATA MANGANICO 

DATA ALUMINICO 

DATA DE BORO 

DATA PLLUMBOSO 

DATA PLUMBICO 

DATA ESTANNOSO . 

DATA ESTANNICO 

DATA DE PLATINO 

DATA DE IRIDIO 

REM 
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222 KEM HKA RARA AA RRA ARA RAR RRA RARA LEAR RARA AA RARA AAA AAA AAA 
3 REM Ranco DATAS DE LAS PREGUNTAS DE LOS ANHIDRIDOS oodbadad oidor 
4 KEM HORNO SOHO ROJO ROO NOOO IO RR MORO A ORO OR OR AO AR AORORORR OR  RIO O OIOHO A 
25 REM : 
6 DATA HIPOFLUOROSO 
7 DATA FLUOROSO 
223 DATA FLUORICO 
229 DATA PERFLUORICO 
230 DATA HIPOCLOROSO 
231 DATA CLOROSO 
232 DATA CLORICO 
233 DATA PERCLORICO 
234 DATA HIPOBROMOSO 
235 DATA BROMOSO 
236 DATA BROMICO 
237 DATA PERBROMICO 
238 DATA HIPOYODOSO 
239 DATA YODOSO 
240 DATA YODICO 
241 DATA PERYODICO 
242 DATA HIPOSULFUROSO 
243 DATA SULFUROSO 
244 DATA SULFURICO 
245 DATA HIPOSELEN 1050 
246 DATA SELENIOSO 
247 DATA SELENICO 
248 DATA HIPOTELUROSO 
249 DATA TELUROSO 
250 DATA TELURICO 
251 DATA HIPONITROSO 
252 DATA NITROSO 
253 DATA NITRICO 
254 DATA HIPOFOSFOROSO 
255 DATA FOSFOROS0 
258 DATA FOSFOKICO 
257 DATA HIPUARSENIOSO 
258 DATA ARSENIOSO 
259 DATA ARSENICO 
260 DATA HIPOANTIMONIOSO 
261 DATA ANTIMONIOSO 
262 DATA ANTIMONICO 
¿63 DATA HIPOBISMITOSO 
264 DATA EISMUTOSO 
265 DATA BISMUTICO 
266 DATA CAKBONOSO 
267 DATA CARBONICO 
268 DATA SILICIOSO 
269Y DATA SILICICO 
270 REM » 
271 REM OOOO O OOOO OOOO 
272 REM daba bb: DATAS DE LAS RESPUESTAS DE LOS OXIDOS AdMdAdRMOIdIOÓNonBoK 
VII REM HA O O OOOO ORIO OOOO RIOR IO IOIOIOIORO OOOO IO IOIOIOIOIOIOlOK 
274 REM 
27€ DATA Li20 
276 DATA Na2zO 
277 DATA K20 
278 DATA Rb20 
279 DATA €s20 
280 DATA Ag20 
281 DATA Cu20 , 
282 DATA CuO : 


283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
305 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
324 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 


DATA Hg20 

DATA Hg0 

DATA Au2O 

DATA AuzO3 

DATA MgO 

DATA Be0 

DATA Ca0 

DATA Sr0 

DATA BaO 

DATA RaO 

DATA Zn0 

DATA CdO 

DATA FeO 

DATA Fez 03 

DATA Co 

DATA Co203 

DATA Ni0 

DATA Ni203 

DATA Cro. 

DATA Cr203 

DATA MnO . 

DATA Mn2053 

DATA A1205 

DATA B203 

DATA PbO 

DATA Phbo2 

DATA Sn0 

DATA Sn02 

DATA PtOZ2 

DATA Ir02 

REM. 

REM MORO A A PA AR MARA ORO RIOR RR OR A O OR AA AO A OA 
REM oRRRabacob DATAS DE LAS RESPUESTAS DE LOS ANBIDRIDOS dRoRaaoIaooIooR 
HEM AH OOO JOR O ORO ORO OOO OOOO RO ROO IO OOO OOOO do 
EM 

DATA F120 
DATA F1203 
DATA K1205 
DATA F1207 
DATA C120 ES 
DATA (1203 
DATA C1205 
DATA C1207 
DATA Br20 
DATA Br203 
DATA Br205 
DATA Br207 
DATA 120 
DATA 1203 
DATA 1205 
DATA 1207 
DATA 50 
DATA 502 
DATA $503 
DATA Se0 
DATA Se02 
DATA 5e03 
DATA TeO 
DATA Te02 
DATA 1203 
DATA N20 
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344 DATA N203 

345 DATA N205 

3468 DATA FE 

347 DATA P203 

348 DATA P205 

349 DATA As20 

350 DATA As203 

351 DATA As205 

352 DATA 35120 

353 DATA 3b203 

53554 DATA 5b205 

355 DATA Bi20 

355 DATA Biz03 

357 DATA Biz2O5 

358 DATA Co 

353 DATA Cuz 

550 DATA 510 

361 DATA ¡5102 

352 REM 

363 REM OA OOO ROI OOOO OOOO OOOO OOOO ORO OOOO OOOO OOOO OOOO JOR k 
364 REM AMEN laldlo la ldlolololcoblckk DIBUJO DE LAS VENTANAS AMERO lO IOlOlIOIOIOJolOIo lok 
3685 REM AO OOOO OOOO OOOO OOO O OOOO OOOO OOOO OOOO lalalala look 
358 REM 

36'7 LOCATE Y1,X1 

368 PRINT CHR$(201) 

369 LOCATE Y1,X2 

370 PRINT CHR$(187) 

3/1 LOCATE YZ,X1 

372 PRINT CHR$(200) 

373 LOCATE Y2Z,X2 

374 PRINT CHR$(188) 

375 LET F=X1+1 

376 LOCATE Y1,F 

377 PRINT CHR$(205) 

35708 LOCATE Y2,F 

379 PRINT CHR$(205) 

380 LET F=F+1 

381 IF F<X2 THEN GOTO 376 
382 LET F-Y1+1 

383 LOCATE F,X1 

384 PRINT CHR3( 186) 

385 LOCATE F,X2 

386 PRINT CHR$(186) 

387 LET F=F+1 

388 IF F<Y2 THEN GOTO 383 
389 RETURN 


390 REM : 

391. REM ARO ROO TOTO ROO OIR IO IR A IR A AR OI O RO A AA 
392 REM ARNO lOldla aldo nialoloololo: - PREGUNTA MALA 1 ARIES OO IO IO 
Y SEM ARO OOOO OOOO ORO OOOO OOOO IO OOOO O OOOO III IO 
394 REM 

395 LOCATE Y,Z20 

396 PRINT ” MUUYYY, MAAAAL.! 


397 FOR F=900 TÓ 100 STEP -30 

3939 SOUND F, 1 

399 NEXT F 

400 LOCATE Y,20 

401 PRINT " LA RESPUESTA COKRECTA ERA ";Kk$(RN) 
402 COLOR 20 - 

403 LOCATE 34+(K42),27:PRINT E$(RN) 

404 COLOR 5 

405 FORK F=1 TO 3000 


NEXT F 
RETURN 
REM 
REM AOS IO IO IO OOOO IO OOOO OO IOIOIOIOIOIGIOIOIIOIOIOIOJOKOK 


410 REM ARMS Olalla lalalolciablolalalotok: — PREGUNTA BTEN | RRRRIRRRRRIORBRIRIOIBIO O oIRIRIOlojolk 
411 REM ORIO ROI OOO ORIO OOOO OOOO OOOO III ORO OOOO lOIOlOIojokaK 
412 REM 

413 LOCATE Y,20 

414 PRINT ” MUY, BIEN 

415 FOR F=1 TO 100 

416 SOUND 1004+(INT(RND*200)),.5 

417 NEXT F 

418 LET B=B+1 

419 FOR F=1 TO 1000 

420 NEXT F 

RETURN 


NO de los aspectos 
básicos a tener en 
cuenta en el diseño 
de una aplicación in- 
formática cualquiera 
(incluso en el diseño 
de un programa indi- 
vidual a realizar en un 
ordenador personal) es el de los contro- 
les y seguridades del proceso. Evidente- 
mente, para que los procesos se realicen 
correctamente y los resultados sean los 
esperados, los datos que se suministran 
al ordenador han de ser correctos y las 
manipulaciones de los operadores las 
debidas, pero ha de ser en el proceso de 
análisis de la aplicación cuando se dise- 
ñen unos controles adecuados que ase- 
guren que estos aspectos descritos se 
realizan debidamente. 

Se suelen establecer dos grupos de 
controles: un primer grupo formado por 
los que se llaman habitualmente contro- 
les físicos y otro formado por los llamados 
controles lógicos o de contenido. 

Con los controles físicos se trata de 
asegurar la adecuada manipulación físi- 
ca de los documentos y archivos en que 
se contienen los datos: no debe «perder- 
se» ningún documento ni archivo (cinta 
magnética, disco, disquete, etc.). 

Mediante cotroles lógicos (o de conte- 
nido) se confirma la validez de los datos 
y la ausencia de errores. 

A) Entre los controles físicos usualmen- 
te establecidos pueden citarse: 

4. Presencia de documentos. Normal- 
mente, los datos originales del proceso 
suelen tomarse de algunos documentos 
en donde están escritos. Es importante 
asegurar que el conjunto de documentos 
que se procesan (que se corresponderá 
con el conjunto de datos introducidos) es 
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el debido. El control se puede establecer 
por un número adecuado escrito en el 
documento, mediante recuento del nú- 
mero de documentos a procesar u otro 
equivalente. 

2. Control fisico de archivos. Etique- 
tas. Es básico que los archivos transpor- 
tables (soportados en disquetes, discos 
removibles, etc.) estén controlados en 
dos sentidos: a) que en cada momento 
se esté procesando el archivo previsto; 
b) que se trabaje con la versión adecua- 
da de cada archivo. En efecto, de un mis- 
mo fichero existirán normalmente varias 
versiones (obtenidas en procesos sucesi- 
vos) y es importante trabajar con la ver- 
sión prevista. Esto es especialmente im- 
portante cuando los procesos se realizan 
con intervalos de tiempo pequeños (qui- 
zá cada día). 

En los procesos de actualización de los 
ficheros, es usual disponer de tres sopor- 
tes físicos que se van rotando (se suele 
llamar a esta organización de «abuelo- 
padre-hijo»: en cada momento se proce- 
sa el «hijo» como entrada y el fichero re- 
sultante (en la salida) se escribe sobre el 
«abuelo»; de este modo si se destruye, 
por error, alguna información sigue que- 
dando otra tercera copia del fichero 
(«padre») que, aunque no sea la última 
versión, es bastante válida. 

La identificación de los ficheros se rea- 
liza mediante etiquetas externas (adhe- 
sivas) y mediante etiquetas internas gra- 
badas en el propio soporte físico y que 
son leídas por el programa en el momen- 
to de «abrir» el archivo correspondiente, 
para comenzar su proceso. Las etiquetas 
adhesivas se obtienen, a veces, del pro- 
pio programa (en alguna impresora auxi- 
liar): esta es una buena solución, por la 
seguridad que aporta. La etiqueta exter- 


na debe contener suficiente información 
para la identificación univoca del fiche- 
ro; se suelen incluir los siguientes datos: 


— nombre del volumen. 

— número del volumen. 

— número de la cadena (de proceso 
a la que pertenece). 

— número de la subcadena y de la 
Unidad de Tratamiento (programa) al 
que se refiere. 

— nombre del fichero. 

— número de generación o versión 
del fichero. 

— fecha de creación. 

— fecha de caducidad (si está previs- 
ta alguna). 

— volumen en el que continúa el fi- 
chero (si es un fichero multivolumen). 


El contenido de las etiquetas internas 
de los archivos suele venir definido por el 
sistema en el que se han grabado. Si se 
puede elegir, conviene incluir aproxima- 
damente la misma información indicada 
anteriormente y añadir información de 
los formatos internos del fichero. 


B) Los controles lógicos o de conteni- 
do más usualmente utilizados son los si- 
guientes: 


4. Control de presencia de los datos. 

Se debe definir como obligatorio un 
dato (o un tipo de registro) que siempre 
deba aparecer para que en el programa 
se tenga en cuenta esta circunstancia y 
se controle. 

2. Naturaleza de los datos. 

Se puede (y debe) controlar el tipo de 
datos que se introduce en cada registro 
(y dentro de cada registro en cada cam- 
po) para que no se intenten procesar da- 
tos numéricos como alfabéticos y vice- 
versa, etc. 

3. Control de verosimilitud. 

Es decir, que el contenido de cada 
campo sea el adecuado (y no sólo del 
tipo adecuado). 

Es muy normal poder definir el rango de 
los datos (por ejemplo, si un número pue- 
de ser negativo o no, los límites entre los 


que debe encontrarse, etc.): si es así, 
debe incluirse este control en el (o los) 
programa(s). 


4. Interrelación de datos. 

Es muy normal que la presencia (o au- 
sencia) de un dato signifique la presen- 
cia o ausencia de otro. A veces el con- 
trol hay que establecerlo entre la presen- 
cia o el valor de un dato y el rango de va- 
lores de otro (por ejemplo, «si el tipo de 
registro es A, el valor de un campo debe 
estar entre 1 y 1000; pero si es B, debe 
ser superior a 1000», etc.). 


5. Control de secuencia o de caden- 
cia en la aparición de los datos o de los 
registros («los números de orden deben ir 
de cinco en cinco» o «los números deben 
ser consecutivos y empezar desde 1 al 
cambiar la fecha, o de año”, etc.). 


6. Controles calculados. 

Es muy común que el propio proceso a 
realizar con los datos proporcione un 
control adicional sobre la consistencia 
de los datos. Por ejemplo, es usual que 
se introduzcan en un proceso un conjun- 
to de cifras parciales y también su total: 
en este caso, la simple suma de las cifras 
individuales y su comparación con el to- 
tal facilita un control para detectar posi- 
bles errores o la ausencia de un dato. 


Conviene señalar por último que, aun- 
que habitualmente la naturaleza de los 
procesos a realizar con los datos o la pro- 
pia estructura de los datos sugiere el tipo 
de controles a establecer, si no es así, de 
todos modos, en el análisis y diseño de 
las aplicaciones o programas debe pre- 
verse la existencia de algún control, de 
tal modo que se introduzca alguna com- 
probación (incluso artificialmente) si no 
aparece ninguna en la naturaleza de las 
informaciones que se traten. 

Además, la situación más común es 
que en un mismo programa haya que in- 
troducir varios de los tipos de control an- 
tes indicados e, incluso a veces, interre- 
lacionarlos. 


O Cálculo de una 


tabla de interés 
compuesto 


UPONGAMOS que de- 
seamos invertir una 
cantidad determina- 
da (por ejemplo, 
100.000 pesetas), du- 
rante varios años, a 
cierta tasa de interés 
compuesto, y desea- 
mos estudiar diversas alternativas. Por 
ejemplo, podemos realizar la inversión a 
tres, cuatro, cinco o seis años, y tenemos 
la posibilidad de elegir entre diversos ti- 
pos de interés, tales como el 8, el 9 o el 
10 por 100. Podría suceder que fueran 
posibles todas las combinaciones de los 
distintos réditos con los años de inver- 
sión. Entonces, para poder comparar las 
diversas alternativas y hacernos una idea 
de la cantidad que podemos obtener al 
final del tiempo correspondiente, sería 
bueno disponer de una tabla que nos 
presentara dichas cantidades de una 
forma sencilla de comprender y que sal- 
te ala vista. Una tabla como la siguiente: 


REDITOS , AÑOS DE INVERSION 


3 4 5 6 


125971 136049 146933 158687 
9 129503 141158 153862 167710 
133100 146410 161051 177156 


Como sabemos, la fórmula que calcu- 
la en qué se convierte un capital «C», in- 
vertido durante «A» años con una tasa (o 
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rédito) de interés compuesto igual a «R» 
(expresada en tanto por ciento) es la 
siguiente: 


Cx (1 + R/100)9 


donde el signo «x» indica multiplicación, 
el símbolo «/» representa la división y el 
superíndice formado por la letra A indica 
que el valor expresado entre paréntesis 
debe ser elevado a la potencia «A» (es 
decir, multiplicado «A» veces por sí mis- 
mo). 

Si en la fórmula anterior sustituimos C 
por el valor del capital que nos interesa 
en nuestro caso (100.000 pesetas), R por 
una de las tasas de interés consideradas 
(10 por 100) y A por cierto número de 
años (cinco, por ejemplo), podremos 
calcular en qué se convierten 100.000 
pesetas al 10 por 100 de interés com- 
puesto durante cinco años: 


donde hemos redondeado el número ob- 
tenido a la peseta más próxima, despre- 
ciando los céntimos. Esto significa, por 
tanto, que nuestras 100.000 pesetas se 
habrán convertido al cabo de cinco 
años en 161.051 pesetas o, dicho de otro 
modo, que hemos obtenido un interés to- 
tal acumulado de 61.051 pesetas. 
Podemos observar que el número obte- 
nido coincide con el que aparece en la 


tercera fila y la tercera columna de la ta- 
bla dada más arriba, que corresponde, 
naturalmente, a un rédito del 10 por 100 
(cabecera de la fila) y un plazo de cin- 
co años (cabecera de la columna). En 
efecto, para construir la tabla entera no 
hay más que repetir la operación ante- 
rior para las doce combinaciones posi- 
bles de los tres réditos deseados (8, 9 y 
10 por 100) y los cuatro plazos posibles 
(3, 4, 5 y 6 años). Podemos proceder a 
realizarlos uno tras otro y, de este modo, 
obtendremos la tabla con cierta faci- 
lidad. 

Sin embargo, las operaciones que hay 
que realizar son siempre las mismas. Ha- 
cerlas a mano llevaría cierto tiempo, in- 
cluso aunque se dispusiera de una cal- 
culadora de bolsillo. ¿Por qué no utiliza- 
mos el ordenador, que está especial- 
mente preparado para realizar rápida- 
mente y con poco esfuerzo este tipo de 
operaciones repetitivas? En el capítulo 
anterior hemos visto que es muy fácil 
construir tablas en diversos lenguajes de 
programación. Vamos a aplicar ahora di- 
chas consideraciones a la construcción 
de la tabla de interés compuesto. 

Veamos primero qué clase de progra- 
ma deseamos construir. Lo haremos lo 
más general posible, de manera que nos 
valga cualesquiera que sean los réditos 
y los plazos que vayamos a colocar 
como encabezados de las filas y colum- 
nas de nuestra tabla. En tal caso, el pro- 
grama pasará por las siguientes etapas: 


1. Leer del teclado el capital. 


2. Leer del teclado los réditos desea- 
dos, expresados en tantos por ciento. 


3. Leer del teclado los plazos desea- 
dos, expresados en años. 


4. Calcular sucesivamente los resulta- 
dos de aplicar la fórmula de interés com- 
puesto con todas las combinaciones po- 
sibles de los réditos y los plazos dados. 


5. Rellenar la tabla con los resultados 
obtenidos. 


6. Obtener la tabla por la pantalla. 
La figura 1 presenta el diagrama. 


Ahora vamos a construir los programas 
correspondientes en diversos lenguajes 
de programación. Veamos primero la 
versión BASIC: 


10 REM Cálculo de uma tabla de interés 
compuesto 

20 DIM R(10) 

30 DIM A(10) 

40 DIM 1(10,10) 

SO REM Leemos el capital 

60 PRINT "Deme el capital" 

70 INPUT C 

80 REM Leemos los réditos deseados 

90 PRINT "Deme el número de réditos" 

100 INPUT NR 

110 PRINT "Deme los réditos en tanto 
por ciento"' 

120 FOR N=1 TO NRz INPUT R(N): NEXT N 

130 REM Leemos los años deseados | 

140 PRINT "Deme el número de años” | 

150 INPUT NA | 

160 PRINT "Deme los años" 

170 FOR N=1 TO NA: INPUT A(N): NEXT N 

180 REM Empezamos a calcular la tabla 

190 FOR M=1 TO NR 

200 FOR N=1 TO NA 

210 LET I(M,N)=CA (1+R(M)/100)”A(N) 

220 NEXT Nz NEXT M 

230 REM Ahora escribimos el resultado 

240 FOR M=1 TO NR 

250 FOR N=1 TO NA 

260 PRINT INT(I(M,N))32 NEXT Nz PRINT: 
NEXT M 


Las instrucciones 10, 50, 80, 130, 180 y 
230,que comienzan con la palabra reser- 
vada REM, no son más que comentarios 
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que el ordenador ignora, pero que anos- 
otros nos sirven para enterarnos de lo 
que va haciendo el programa, especial- 
mente si hace mucho tiempo que lo 
construimos y deseamos volver a utilizar- 
lo o modificarlo para realizar nuevas apli- 
caciones. Por esta razón es conveniente 
poner siempre numerosos comentarios 
en nuestros programas. 

Las instrucciones 20 y 30 definen dos 
“vectores” o series de datos que vamos 
a utilizar para guardar los réditos (varia- 
ble R) y los plazos de inversión en años 
(variable A). Estas variables se declaran 
mediante la palabra reservada DIM, 
como vimos en el capítulo tercero. En 
principio, suponemos que no vamos a 
desear construir tablas para más de diez 
réditos distintos o para más de diez pla- 
zos diferentes. Por tanto, declaramos que 
estas series de datos van a tener, preci- 
samente, diez elementos. 

La instrucción 40 define la tabla de in- 
terés compuesto, como vimos en el capí- 
tulo cuarto, también mediante la instruc- 
ción DIM, pero dando en este caso el nú- 
mero de filas y el de columnas. La llama- 
mos |, y afirmamos que tendrá diez filas y 
diez columnas, lo que corresponde con 
los límites que hemos establecido antes 
para los réditos y los plazos de inversión. 

Las instrucciones 50 a 170 leen del te- 
clado los diversos datos que necesita- 
mos para comenzar a calcular la tabla: 
el valor del capital (que se guarda en la 
variable C), los réditos (que pasan a lle- 
nar los primeros valores de la variable R), 
y los plazos de inversión en años (que 
ocupan los primeros valores de la varia- 
ble A). Al llegar a la instrucción 180 ten- 
dremos, por tanto, todos los datos que 
necesitamos y podemos comenzar a rea- 
lizar los cálculos. 

Como la tabla tiene dos dimensiones, 
es preciso utilizar dos bucles (los indica- 
dos en la figura 1) para llenar todos sus 
valores: un bucle para las filas (los rédi- 
tos) y otro para las columnas (los plazos). 
En BASIC, construiremos los bucles con 
instrucciones FOR. Habrá, por tanto, dos 
de ellas: 


190 FOR M=1 TO NR 
200 FOR N=1 TO NA 
210 LET 1(M,N)=CX£ (1+R(M) /100) A (N) 
220 NEXT Nz NEXT M 


La instrucción clave aquí es la número 
210. Esta es la que calcula el valor que 
debe colocarse en un lugar determinado 
de la tabla. Se observará que no hace 
otra cosa que aplicar la fórmula del inte- 
rés compuesto, utilizando los símbolos de 
BASIC para la multiplicación (+), la divi- 
sión (/) y la elevación de una potencia 
7 

Finalmente, las instrucciones 230 a 260 
sirven para que aparezcan los valores de 
la tabla en la pantalla, tal y como se ex- 
plicó en el capítulo cuarto. Obsérvese 
que, para despreciar los céntimos, impri- 
mimos INT (| (M, N)), es decir, la parte en- 
tera de los valores de la tabla. Esta fun- 
ción no redondea, sino que trunca los va- 
lores al entero inmediato inferior. 

Al ejecutar el programa anterior obte- 
nemos el siguiente resultado: 


Deme el capital 

2 100000 

Deme el número de réditos 

eS : 

Deme los réditos en tanto por ciento 


Deme el número de años 

24 

Deme los años 

?3 

ES 

25 

?6 
125971 136048 146932 158687 
129502 141158 153862 167710 
133100 146410 161051 177156 


Veamos ahora la versión PASCAL. El or- 
ganigrama que vamos a realizar es el 
mismo que en el caso de BASIC. El pro- 
grama será el siguiente: 


program INTERES; 
(k Declaración de las variables %X) 


var 


nr, na, m, nz: integer; (% contadores X) 


c:real; (% capital %£) 


r, az array[1..10] of integer; (% réditos y años X) 


iz array[1..10,1..10] of real; (k tabla de intereses *) 
(k Declaración de la función POTENCIA Xx) 
function potencia (x:realzn:integer):real; 


(kx Devuelve x elevado a n X) 


var izinteger; r:real; 
begin 
ri=1; 


for iz=1 ton do r:i=rXx; 


potencia:=r; 
end; 
(k Programa X) 
begin 
(* Pedimos el capital X) 


write(”Deme el valor del capital ”); 


readln(c); 
(k Pedimos los réditos X) 


write(*Deme el número de réditos ”); 


readlnínr); 


writeln(*"Deme los réditos en tanto por ciento ”); 


for n:=1 to nr do readln(rinJ); 


(* Pedimos los años %X) 


write(*Deme el número de años ”); 


readlnína); 
writeln(”Deme los años ”); 


for n:=1 to na do readin(a(nJ); 


(* Ya podemos calcular la tabla %) 


for m:=1 to nr do 
for n:=1 to na do 


ilm,nJ:=ckpotencia((1+r[mJ/100),a[nJ); 
(kx Ahora escribimos los resultados %*) 


for m:=1 to nr do 
begin 


for n:=1 to na do write(i[lm.nJ:6:0,” ”); 


writeln; 
end 


end. 


En este programa también podemos 
ver numerosos comentarios, que son los 
textos comprendidos entre los símbolos ( » 
y los símbolos »). Al revés que en BASIC, 
los comentarios de PASCAL pueden colo- 
carse en cualquier sitio dentro del pro- 
grama, al principio, en medio o al final 
de una línea o constituyendo líneas com- 
pletas. 

Hay una diferencia fundamental entre 
este programa PASCAL y el programa BA- 
SIC que hemos visto anteriormente: en 
PASCAL hemos definido una función es- 
pecial para elevar un número a una po- 
tencia. Esta función es la siguiente: 


function potencia (x:real¡n:integer): 
real: 
(k Devuelve x elevado a n X) 
var i:integer; r:real; 


for 1:=1 to n do r:=rkXx; 


potencia:=r; 


Esta función es un “subprograma”, es 
decir, una parte de un programa que se 
aísla del mismo y realiza una operación 
determinada (en este caso, multiplica 
“n” veces por sí mismo el valor de la va- 
riable “x”). En capítulos posteriores vere- 
mos con mayor detalle esta forma de 
programar. 

Como hemos dicho más de una vez, en 
PASCAL es preciso declarar todas las va- 
riables. La parte declarativa comienza 
por la palabra reservada VAR, y com- 
prende, además de la función “poten- 
cia”, las siguientes instrucciones: 
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var 


c:ireal; (*X capital X) 


El resto del programa es muy semejan- 
te a la versión BASIC. También aquí co- 
menzamos por obtener del teclado los 
valores del capital, los réditos y los pla- 
zos en años y efectuamos los cálculos 
mediante un doble bucle que, en su ver- 
sión PASCAL, dice así: 


for m:=1 to nr do 
for n:=1 to na do 


ifm,nJ:=ckpotencia((i+rEmJ/100), 
alnd)3 


donde puede observarse también la 
aplicación de la fórmula del interés com- 
puesto, que en este caso utiliza la fun- 
ción “potencia” en lugar de un símbolo 
predefinido. La última parte del progra- 
ma PASCAL exhibe el resultado por la 
pantalla, tal y como se explicó en el ca- 
pítulo cuarto. 

Veamos el resultado de la ejeución de 
este programa: 


el valor del capital 100000 
Deme el número de réditos 3 
los réditos en tanto por ciento 


el número de años 4 
los años 


125971 136049 146933 158687 
129503 141158 153862 167710 
133100 146410 161051 177156 


nr, na, m, n: integer; (%* contadores *) 


r, a: array[1..10] of integer; (* réditos y años X*) 
iz array[l1..10,1..10] of real; (% tabla de intereses 1%) 


Se observará que, en este caso, se han 
obtenido valores redondeados hacia la 
peseta más próxima, por lo que existen 
diferencias de una peseta en algunos 
casos con respecto a la solución del pro- 
grama BASIC. 

En APL, dada la ausencia de declara- 
ciones en este lenguaje y su gran facili- 
dad para trabajar con tablas directa- 
mente, sin necesidad de bucles, no es 
necesario utilizar el organigrama ante- 
rior, y el programa se reduce a una sola 
línea. Para interpretarlo, recuérdese lo 
explicado en el capítulo cuarto sobre la 
forma de generar tablas en APL, aplican- 
do una operación a dos series de datos 
en todas las combinaciones posibles. 


7 0 + 100000 x (1+8 9 10-100) 
.*3VSG 

1259/1 136649 146933 158687 

129503 141158 153862 167710 

133100 146410 161051 177156 


Se observará que los resultados del 
programa APL son indénticos a los del 
programa PASCAL, pues los datos están 
también redondeados a la peseta más 
próxima. 

En el capítulo primero puede encontrar 
el lector una versión más completa de 
este programa APL, que pide del teclado 
los datos necesarios (capital, tasas de in- 
terés y plazos de inversión) y produce 
una tabla con encabezados de filas y 
columnas. 


LOGO 


L igual que cuando 
viajamos en barco o 
en avión el piloto 
sabe perfectamente 
hacia dónde se diri- 
ge, la tortuga cuando 
se mueve por la pan- 
talla o gira conoce 
cuál es su rumbo, es decir, en qué direc- 
ción y sentido va a realizar su siguiente 
movimiento. 

Para poder hacer esto la tortuga consi- 
dera que estando en cualquier posición, 
puede distinguir en la pantalla los cua- 
tro puntos cardinales que todos conoce- 
mos: 


Cada uno de estos puntos cardinales 
tiene asignado un valor, asi: 


bi 


EL RUMBO DE LA TORTUGA 


Pues bien, podemos utilizar el comando 
PONRUMBO n 


para decirle a la tortuga que gire el nú- 
mero de grados que sea necesario para 
que se quede mirando en una determi- 
nada dirección. Como es lógico, n indi- 
ca el número asociado con la dirección 
hacia dónde queremos que mire la tor- 
tuga. 

Por tanto, este comando sirve para que 
la tortuga gire, al igual que GD y Gl. Pero 
hay una diferencia. Con GD y Gl se dice 
que el giro es relativo, ya que la tortuga 
gira el número de grados que nosotros le 
decimos respecto a la posición que ten- 
ga en ese momento. Por el contrario, con 
PONRUMBO se dice que el giro es absolu- 
to, ya que la tortuga se pone a mirar 
hacia donde nosotros le digamos con in- 
dependencia de su posición en ese mo- 
mento, es decir, sin importar hacia don- 
de miraba antes. 

Vamos a probar esta diferencia: 


— con GD 


pulsamos L_] 
——» 


— con PONRUMBO 


pulsamos[__)] 
aj 


so LOGO 


En este caso, ambos tipos de giro han 
coincidido, pero esto no suele ser lo nor- 
mal: 


— conGD 


pulsamos -—) 
—> 


pulsamos A 


— con PONRUMBO 


Por otro lado, en un momento determi- 
nado podemos desear conocer hacia 
dónde mira la tortuga porque no lo dis- 
tinguimos claramente en la pantalla. 
Para lograrlo, podemos preguntárselo a 
ella con la función 


RUMBO 


que nos devuelve un número que indica 
en que dirección está la cabeza de la 
tortuga. 


Como siempre, con el resultado de una 
función hay que hacer algo. En este 
caso, lo normal es escribirlo. Por ejemplo: 


Como era de esperar, la tortuga no ha 
variado su posición, sólo ha respondido 
a nuestra pregunta. 

Una última cosa: la tortuga no tiene por 
qué estar siempre mirando a uno de los 
cuatro puntos cardinales, sino que pue- 
de estar orientada hacia una posición in- 
termedia. De la misma forma, en un cier- 
to momento nos puede interesar que la 
tortuga se oriente hacia una de estas po- 
siciones. 


Veámoslo con algunos ejemplos: 


? ES RUMBO 
ñ 225 
? 


7? PONRUMBO 120 
2 


7 ES RUMBO 
330 
E 


7? PONRUMBO 45 
T 


Los números que aparecen en las pan- 
tallas indican el ángulo que existe entre 
la posición intermedia y uno de los pun- 
tos cardinales. 


' La posición de la tortuga 


Cuando queremos jugar a los barqui- 
tos, cogemos un papel y trazamos una 
cuadrícula. Para disparar a una determi- 
nada posición, la identificamos median- 
te dos elementos (un número y una letra), 
que indican la fila y la columna que le 
corresponden. 


COLUMNA 


8H 


$ O 


Algo parecido le ocurre a la pantalla 
por la cual se mueve nuestra tortuga. 
Aunque nuestro ojo no lo note, en reali- 
dad la pantalla es una cuadrícula forma- 
da por cuadritos muy pequeños, tan pe- 
queños que nosotros no los distinguimos. 

Por tanto, en lugar de decirle a la tor- 
tuga que se mueva hacia delante y ha- 
cia atrás un número de pasos (con los co- 
mandos AV y RE), le podemos mandar 
que se traslade a una posición determi- 
nada (a un cuadrito de la pantalla). 

Para indicarle en qué cuadrito quere- 
mos que se ponga, vamos a usar dos nú- 
meros (en lugar de un número y una le- 
tra). El primer número sirve para dar el 
valor de la columna de la posición y se 
llama coordenada X. El segundo número 
da el valor de la fila y se llama coor- 
denada Y. 

Antes de ver los comandos, nos queda 
por saber las dimensiones de la pantalla, 
es decir, los valores mínimos y máximos 
para las filas y columnas. 

Por un lado, la pantalla tiene 192 filas y 
256 columnas, pero se numeran partien- 


O] posición 


256 


rd 


do del centro de la pantalla (posición ini- 
cial de la tortuga). Esta posición es la 
correspondiente a la columna 0 y fila 0. 


; 


(8,0) 


Para las columnas que están a la dere- 
cha de esta posición o en las filas de en- 
cima se usan números positivos (números 
que no llevan nada delante o llevan un 
signo +). 

Para las columnas que están a la iz- 
quierda de esta posición o en las filas de 
debajo se usan números negativos (nú- 
meros que llevan delante un signo -). 


Los valores máximos para filas y colum- 


nas son: 
Fila + 85 


Columna - 128 Columna +127 


Fila -86 


Es decir, para las coordenadas X e Y se 
cumple (si la tortuga está en la posición 
inicial): 


— Coordenada X 


LOGO 


Sirve para ira la izquierda (número ne- 
gativo) o a la derecha (número positivo). 


- Coordenada Y 

Sirve para ir hacia arriba (número posi- 
tivo) o hacia abajo (número negativo). 

En cuanto a los comandos relaciona- 
dos con la posición de la tortuga, tene- 
mos de dos tipos: unos sirven para variar- 
la y otros para conocerla. 

Si queremos que la tortuga se coloque 
en una determinada posición de la pan- 
talla usaremos el comando 


PONPOS (x y) 


donde x indica el número de columna e 
y el número de fila de dicha posición. 

Si deseamos que cambie de columna 
pero que siga en la misma fila, tenemos 
dos opciones. Una de ellas es usar el co- 
mando PONPOS poniendo como valor 
para xel que nos interese y para y el que 
tenga la posición de la tortuga en ese 
momento. Otra posibilidad es utilizar el 
comando 


PONX n 


donde n indica el número de la nueva 
columna. 

En caso contrario, es decir, si queremos 
variar de fila pero no de columna, pode- 
mos usar PONPOS (al revés que antes) o 
el comando 


PONY n 


donde n es el número de la nueva fila. 

Antes de continuar hay que darse 
cuenta de dos cosas. En primer lugar, 
cuando la tortuga cambia de posición 
no varía su rumbo, es decir, sigue miran- 
do en la misma dirección que antes de 
moverse. En segundo lugar, cuando la 
tortuga se desplaza de una posición a 
otra va dejando un rastro con su lápiz, a 
no ser que le hayamos dicho antes que 
lo levante. 

Por último, disponemos de unas funcio- 
nes que nos servirán para que la tortuga 
nos diga cuál es su posición. 

Si queremos saber cuál es la posición 
de la tortuga usaremos la función 


POS 


Esta función da como resultado dos nú- 
meros. El primero es el de la columna y 
el segundo el de la fila. 

Si sólo queremos saber el número de 
columna, la función es: 


COORX 


mientras que si deseamos conocer úni- 
camente el número de fila utilizaremos: 


COORY 


Como hasta ahora, lo que haremos con 
estas funciones será escribir su resultado. 

Por ejemplo, podemos probar el si- 
guiente conjunto de comandos: 


7? EF 


? ES POS 
to 01 


2? AV 50 Gb 90 AV 30 


(30 501 
7 ES COORX 


30 


-3 


ES CODRY 


50 


7] 


PONFOS [30 01 


e] 


PONX 60 


3 


FONY 50 


y nos quedará: 


Como vemos, con estos comandos po- 
demos hacer dibujos sin necesidad de 
preocuparnos del rumbo de la tortuga. 


[MI Os proponemos 


1. Puedes pintar los signos de las 4 
operaciones aritméticas básicas. 


Para moverte a las esquinas utiliza los 
comandos de posición y para hacer los 
giros los de rumbo. 

2. Dibujar este sol usando el coman- 4. Intenta dibujar estas figuras utilizan- 
do PONRUMBO para que gire la tortuga. do sólo comandos de posición. 


. Pinta este castillo usando PONRUM- 
Eo para girar. 


PASCAL 


Ú El tipo Boolean 
(continuación) 


A hemos aprendido a 
comparar números 
entre sí para obtener 
resultados lógicos; 
aunque todavía no 
sabemos cómo, he- 
mos anticipado qué 
resultados de este 
tipo son los que se emplean para tomar 
decisiones. 

Además de comparar datos numéri- 
cos, es muy frecuente tener que comparar 
entre sí caracteres; por ejemplo: 


“Si el apellido empieza por una letra pos- 
terior a la M, entonces...” 


Veamos cómo hacer estas compara- 
ciones. 


a Comparaciones entre 
caracteres 


Dado que los caracteres tienen asocia- 
dos unos números de orden, y que tene- 
mos la función ORD que nos permite utili- 
zar esos números en expresiones enteras, 
para ver si un carácter está por detrás o 
no de la letra M, lo que podríamos hacer, 
por ejemplo, sería: 


ord (Inicial) > ord ('M”) 


Sin embargo, no es necesario acudir a 
tal artificio, pues se pueden comparar di- 
rectamente valores de tipo carácter: 

Inicial > 'M” 

Ambas expresiones, a la hora de la ver- 
dad, son totalmente equivalentes pero, 
sin embargo, es mucho más cómodo uti- 
lizar la segunda. Los operadores de com- 
paración disponibles son exactamente 
los mismos que para los datos de tipo IN- 
TEGER. Así, 'A' >= 'B' dará el resultado 
FALSE, pues ord('A') no es mayor o igual 
que ord('B”). 


En definitiva, la comparación < , «me- 
nor que», se podría llamar ahora «viene 
antes, por orden alfabético, que» y de 
manera análoga para las otras. 

Como se puede imaginar, esto será 
muy útil, por ejemplo, a la hora de orde- 
nar alfabéticamente textos de cualquier 
tipo. Sin embargo, hay que hacer notar 
que sólo se tiene la seguridad de que es- 
tán ordenadas correctamente las letras 
del alfabeto inglés. Con los códigos AS- 
Cll empleados en la mayoría de ordena- 
dores personales, por ejemplo, la letra N 
tiene un número de orden superior a los 
de las demás letras; además, las letras 
minúsculas se consideran distintas de las 
mayúsculas y se encuentran por detrás. 


rn] Expresiones de tipo 
um BOOLEAN 


De acuerdo con la definición de expre- 
sión que hicimos en su momento, una ex- 
presión de tipo BOOLEAN es un conjunto 
de valores de ese mismo tipo combina- 
dos entre sí mediante operadores lógi- 
cos (o booleanos) para dar a su vez un 
resultado de tipo BOOLEAN. Los operado- 
res disponibles se representan con unas 
palabras reservadas, y son los siguientes: 


— AND, operación lógica “Y”. 


La operación AND aplicada a dos va- 
lores lógicos da resultado TRUE si y sólo si 
ambos valores son TRUE simultáneamente: 


MayorDeEdad and (Inicial = 'A”) 


Esta expresión dará resultado TRUE sólo 
si MayorDeEdad es TRUE y la inicial es la 
letra A. 


— OR, operación lógica “O”. 


Aplicada a dos valores lógicos resulta 
TRUE cuando cualquiera de ellos, o los 
dos a la vez, es TRUE: 


(Edad = 29) or (Inicial = 'M') 


Para que esta expresión resulte TRUE 
basta con que Edad sea igual 
a 29 o que la inicial sea la letra M. 


— NOT, operación de negación. 


Aplicada a un valor lógico, proporcio- 
na su opuesto, es decir, FALSE si era TRUE 
y viceversa. La expresión: 


not (odd(Edad)) 


resultará TRUE si odd(Edad) es FALSE, es 
decir, si Edad es par. 


— En algunos compiladores de PAS- 
CAL existe además la operación XOR u 
«O exclusivo», similar a OR, pero que re- 
sulta TRUE sólo si alguno de los dos valo- 
res es TRUE y no si ambos lo son a la vez. 
Esta operación podría tener un nombre 
distinto de XOR. 


Las expresiones se evalúan de izquier- 
da a derecha, realizándose primero las 
operaciones NOT, luego las AND y des- 
pués las demás. 


Supongamos que las variables A, B y D 
tuvieran el valor FALSE y que C tuviera el 
valor TRUE. Entonces resultaría: 


Al igual que en las expresiones de tipo 
INTEGER, se pueden utilizar paréntesis 
para asegurar un determinado orden de 
evaluación: 


(A or 8) and (not(C or D) and D) 


Hay que hacer notar que, con a los 
operadores lógicos, existen muchas for- 
mas de expresar una condición dada: 


(Edad >=30) 
(Inicial = 'A') 
not (Gordo and Viejo) 


equivale a not (Edad< 30) 
a not (Inicial <> 'A”') 
a not (Gordo) or not (Viejo) 


(«no ser gordo y viejo a la vez» equivale 
a decir «no ser gordo o no ser viejo o nin- 
guna de las dos cosas). 


Resumiendo en una tabla los resulta- 
dos de las operaciones lógicas: 


F = FALSE. T = TRUE. 


A y B pueden ser cualquier variable, 
comparación, etc., que proporcione un 
resultado de tipo BOOLEAN. 


NOTAS: 


— Para los expertos en BASIC: 


Como se ve, en PASCAL el resultado de 
una operación lógica sólo puede dar los 
valores TRUE y FALSE que NO son números. 
Por tanto, cosas como A = A + (B > 5), tan 
habituales en BASIC aprovechando que 
el resultado falso es un 0 y el cierto, ge- 
neralmente, un -1, no son posibles en 
PASCAL. NUNCA se pueden mezclar da- 
tos de diferente tipo. 


— Aunque no resulta de demasiada 
utilidad, puede ser interesante saber que 
internamente los valores BOOLEAN, como 
los CHAR, tienen asociados números ordi- 
nales de manera que ORD (TRUE) es ma- 
yor que ORD (FALSE) y, por tanto, es posi- 
ble comparar a su vez valores de tipo 
BOOLEAN. Ejemplos: 

(A = false) dará TRUE si A es igual a FAL- 
SE, o sea, equivale a poner NOT (A) y (A 
= true) equivale a poner A simplemente. 

Se puede comprobar que (A <>B) 
equivale a (A xor B) mirando la tabla an- 
terior. 


[mu Toma de decisiones y bucles 


Hasta ahora todos los programas no 
han sido más que simples secuencias de 
instrucciones que se ejecutaban por or- 
den, empezando por la primera y aca- 
bando con la última. 

Si se desea construir programas más 
complejos, es necesario tener la posibili- 
dad de tomar decisiones sobre qué gru- 
pos de instrucciones se van a ejecutar en 
un momento dado y la de repetir bloques 
de instrucciones. 

A continuación describiremos las más 
importantes estructuras de control exis- 
tentes en PASCAL. 


se PASCAL 


mu La estructura IF-THEN 


Esta estructura permite decidir durante 
la ejecución de un programa si una ins- 
trucción dada se debe ejecutar o no se- 
gún una cierta condición. Opcionalmen- 
te, es posible escoger entre dos instruc- 
ciones. Veamos un ejemplo: 


program IfThen; 
var N: integer; 


begin 

write (”Número: ?); 

readin (N); 

if N< O then writeln (” inegativo!'”); 
writeln (N,” al cuadrado = ”, sqr (N)); 
end. 


Este programa pide un número y pre- 
senta su cuadrado; el mensaje «¡negati- 
vo!» sólo aparecerá cuando el número 
tecleado sea menor que 0. Si traducimos 
del inglés: 


IF N<0 THEN 
Si N menor que 0 entonces 


WRITELN (*... 
WRITELN (*... 


vemos claramente cómo es la estructura. 

Entre las palabras reservadas IF y THEN 
se escribe la condición, que puede ser 
cualquier cosa que dé un resultado de 
tipo BOOLEAN, o sea, TRUE o FALSE. Duran- 
te la ejecución del programa, al llegarse 
a la estructura IF se evalúa la expresión 
lógica y, caso de que el resultado sea 
TRUE, se pasa a ejecutar la instrucción 
cuya ejecución condicional se desea y 
que se encuentra tras la palabra THEN. 
Tras esto se sigue ejecutando lo que hu- 
biera a continuación. 

Si el resultado fuese FALSE, se pasaría a 
ejecutar lo siguiente directamente. En 
definitiva: 


IF (condición) THEN (instrucción a ejecu- 
tar en caso de TRUE) 


El conjunto así formado es una instruc- 
ción en sí misma, aunque al estar forma- 
da por varias partes se dice que es una 
instrucción «ESTRUCTURADA». Como tal 
instrucción debe separarse de la que pu- 
diera haber a continuación por un punto 
y coma. 


Veamos otro ejemplo: 


program IfThenElse; 


var N:z integer; 


begin 
write ("Número: ”); 
readln (N); 

if abs (N) > 100 then 


writeln(”No me gusta tan grande”) 
else 


writeln(N,” al cuadrado = " 
SOR (N)); 
writeln (*Se acabó.”) 


En esta otra variante de la estructura IF, 
sin embargo, se escoge entre dos posi- 
bles instrucciones, según sea el resultado 
de la condición. 

Tras la palabra reservada THEN se escri- 
be aquella que se desea ejecutar cuan- 
do el resultado de la condición sea TRUE. 
A continuación, y separada por la pala- 
bra reservada ELSE, se escribe la que hay 
que ejecutar en caso de ser FALSE el re- 
sultado. 

Sea cual sea el resultado de la condi- 
ción, y tras ejecutarse la instrucción 
correspondiente, se continúa con la si- 
guiente a la estructura. 

Una vez más, la traducción del inglés 
es clara: 


IF abs(N) > 100 THEN — WRITELN ('No... 
Sivalor absoluto de N mayor que 100 entonces WRITELN ('No... 
ELSE WRITELN (N,' al... 

en otro caso WRITELN (N,' al...” 


Nótese que tras el primer WRITELN y an- 
tes de ELSE no hay ningún punto y coma; 
si lo hubiera, al llegar a él el compilador, 
supondría que es el final de una estruc- 
tura IF del primer tipo, con lo que al lle- 
garse a la palabra ELSE se produciría un 
error. 

El conjunto formado por la condición, 
las dos instrucciones y las palabras reser- 
vadas IF, THEN y ELSE es a su vez una ins- 
trucción (estructurada, eso sí), y, por tan- 
to, debe ir separada de la siguiente por 
un punto y coma. 

La instrucción (o instrucciones) cuya 
ejecución condicional se desea puede 
ser cualquiera que se nos ocurra, simple 
o estructurada. Entre estas últimas se en- 
cuentra lo que se denomina SECUENCIA 
DE INSTRUCCIONES. 


¡O Secuencia de instrucciones 


Una SECUENCIA O BLOQUE DE INSTRUC- 
CIONES es un conjunto de instrucciones 
de cualquier tipo escritas una detrás de 
otra, separadas entre sí por punto y 
coma, y enmarcadas por las palabras re- 
servadas BEGIN para indicar el comienzo, 
y END para indicar el final. Por ejemplo: 


end 


program Secuencia; 


const 
EdadMaxima = 15; 
var 
Inicial: char; 
Peso : integer; 


begin 
writeln (* Inicial? ”); 


(X Miramos a ver si 


begin 
Inicial:= *A” 
end; 


writeln (”Peso? ”); 


Peso > 100 then 
begin 


if 


end 
else 
if Peso < 30 then 


(* Aquí acaba el 


end. 


(Nótese la indentación utilizada para ha- 
cer el programa más claro.) 


Como la estructura IF-THEN en su con- 
junto es una instrucción estructurada, po- 
dria formar parte de una secuencia o ser 


readln (Inicial); 


se ha tecleado una letra: 
if (Inicial < *A”*) or (Inicial > *Z”) then 


writeln (” Imposible.”); 
writeln (*Supongo que es la A”); 


(xXx Aquí acaba un conjunto IF-THEN x) 


readin (Peso); 


writeln ("Pues no está mal.”); 
writeln (Peso,*Kg... 


writeln (*Muy poco, ¿no?”); 
(xk Aquí acaba el último IF-THEN X) 
conjunto IF-THEN-ELSE %*) 


writeln(*Letra= *,Inicial,” 


Toda la secuencia es como si fuese una 
única instrucción formada por varios pa- 
sos. Como con otras instrucciones estruc- 
turadas, el PASCAL es muy claro respec- 
to a su uso: se puede poner en cualquier 
sitio en que pudiera figurar una instruc- 
ción simple, y su ejecución consiste en 
ejecutar por orden las instrucciones que 
la integran. 


Utilizando secuencias en una estructu- 
ra IF-THEN es posible, por tanto, decidir si 
se ejecutan o no grupos complejos de 
instrucciones. Por ejemplo: 


x) 


¡caray!”) 


Peso= ”,Peso) 


incluso una de las instrucciones que for- 
man parte de otra estructura IF, que es lo 
que sucede en el programa: si Peso es 
mayor que 100, saca dos mensajes y en 
otro caso... si Peso es menor que 30, saca 
otro mensaje. 


UE copy 


Lcomando COPY per- 
mite realizar copias 
de uno o más ficheros 
aun dispositivo de al- 
macenamiento espe- 
cífico. Primero se 
debe indicar el fiche- 
ro origen, y después 
el fichero destino. Por ejemplo: 


COPY ARCHIVO1 ARCHIVO2 


haría que en el fichero “ARCHIVO2" se 
copie íntegramente la información del fi- 
chero “ARCHIVO 1“. 


FICHERO FUENTE 


OTROS LENGUAJES 


SISTEMAS OPERATIVOS MS-DOS (III) 
COMANDOS PARA OPERACIONES CON FICHEROS 


za como operador el signo “+"“. Por ejem- 
plo: 


COPY FICH1 + FICH2 FICH3 


“une” los ficheros “FICH1“ y “FICH2" y los 
copia en el archivo “FICH3"“. 

Además de las diversas opciones de 
trabajo, el comando COPY tiene varios 
indicadores, que sirven para verificar el 
proceso de copia, y especificar el tipo 
de contenido de los ficheros copiados, 
ya sea código ASCII o código binario. 


ERASE 
Con el comando ERASE (en algunas ver- 
siones de MS/DOS se llama DELETE) se 


FICHERO 
FUENTE 


FICHERO 
DESTINO 


A Una de las funciones para la que más se utiliza COPY es para realizar «reproducciones» o copias de 
ficheros con el mismo o distinto nombre, y en el mismo o diferente dispositivo de almacenamiento. 


También se puede copiar uno o más fi- 
cheros en un directorio especificado. 
Para ello, el segundo parámetro del co- 
mando debe ser el nombre del directo- 
rio destino. Si detrás de éste no hay nin- 
gún nombre de archivo, los ficheros co- 
piados toman el mismo nombre que los” 
originales. 

Otra función que se puede realizar con 
el comando COPY es la concatenación 
o unión de ficheros, para lo cual se utili- 


borra un fichero, o un grupo de ficheros 
en caso de utilizar caracteres comodín. 

Dado que esta orden no pide confirma- 
ción para realizar la acción de borrado, 
es conveniente que nos aseguremos que 
la especificación del archivo (o archi- 
vos) a borrar es correcta. 


RENAME 


Esta orden permite cambiar el nombre 
a los ficheros ya creados. La única limita- 


ción estriba en la imposibilidad de cam- 
biar el nombre a un grupo de ficheros 
(proceso que se realiza utilizando los ca- 
racteres comodín), en el que no estén to- 
dos almacenados en el mismo disco. 


Comandos de salida 
de ficheros 


TYPE 


Este comando visualiza por pantalla el 
contenido de un fichero especificado, 
sin tener posibilidad de modificarlo. El 
proceso de salida de la información se 
realiza de forma continua, de manera 
que si el tamaño del fichero excede a la 
capacidad visual de la pantalla (24 lí- 
neas normalmente), la información se 
desplaza hacia arriba para dar cabida a 
nuevas líneas. En caso de que se quiera 
parar este desplazamiento es necesario 
una combinación de teclas específicas. 
El texto vuelve a desplazarse pulsando 
cualquier tecla. 


PRINT 
Con el comando PRINT se pueden im- 


COMANDOS 


[A Ejemplo de la ejecución del comando MKDIR. 


DIRECTORIO 
RAIZ 


primir uno o varios ficheros mientras 
MS/DOS realiza otras tareas. Esto se con- 
sigue utilizando los tiempos muertos de la 
UCP, de manera que cuando no hace 
otros trabajos se ocupa de ir imprimien- 
do los ficheros especificados. 


E Comandos de manejo 
u de la estructura de ficheros 


Dentro de este grupo hemos encuadra- 
do aquellos comandos que nos permiten 
crear y borrar directorios, así como mo- 
vernos a través de la estructura en árbol 
de los ficheros. 


Con esta orden podemos crear un sub- 
directorio en un disco especificado. Por 
ejemplo, con la orden: 


MKDIR NuevoDir 


se crearía un subdirectorio al que se le 
da el nombre “NuevoDir”, y que está 
“colgado” del directorio donde estamos 
posicionados. 


DIRECTORIO ACTUAL 
(EN EL QUE 

ESTAMOS 
POSICIONADOS) 


“0 OTROS LENGUAJES 


Con el comando RMDIR borramos del 
disco especificado el directorio (o subdi- 
rectorio) nombrado, el cual debe estar 
vacío previamente. 

No puede eliminarse el directorio raíz 
ni el directorio actual (aquél en el cual 
estamos). 


DIRECTORIO 
RAIZ 


A > CHDIR 


DIRECTORIO 
ACTUAL 


CHDIR 


Esta orden cambia el directorio actual 
de la unidad de disco especificada, o 
bien visualiza el camino desde el direc- 
torio raíz hasta el directorio actual. 

Si después de CHDIR va un nombre de 
subdirectorio, se “baja” al subdirectorio 
indicado. En caso de que se quiera “su- 
bir” al directorio “padre” se teclea 
CHDIR.. (los dos puntos especifican el di- 
rectorio padre). 


DIRECTORIO 
RAIZ 


DIRECTORIO 
ACTUAL. ————__ 


[A Cambio de directorio actual mediante el comando MKDIR. 


